perm filename PNTY.LST[PNT,HE]1 blob
sn#492463 filedate 1980-01-15 generic text, type T, neo UTF8
PALX 246 01/15/80 17:26:18 Page 1
COMP1 PAL[AL,HE] Page 1
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 .TITLE Pseudo-code
C00004 ENDMK
C⊗;
PALX 246 01/15/80 17:26:18 Page 2
COMP1 PAL[AL,HE] Page 2
;.TITLE Pseudo-code
;File that requires all the compiled files.
;Overlaid on top of the interpreter.
000000 NEW == 0 ;0 for old, 1 for new
;Only need to insert this during first pass
.IF1
.IFNZ NEW
.PRINT /Experimental version - for use with ALX.SAV
/
.ENDC
.MACRO ASCIE STR
.ASCIZ ∃STR∃
.EVEN
.ENDM
.MACRO MAKEOP CNAME, ANAME ;Compiler name, Address name
XX CNAME
.ENDM
.IFNZ NEW
.INSRT ALHEAD.NEW[AL,HE]
.INSRT INTOPS.NEW[AL,HE]
.IFF
.INSRT ALHEAD.PAL[AL,HE]
.INSRT INTOPS.PAL[AL,HE]
.ENDC
;The interpreter operation table
.ENDC
620000 .OFFSET -160000
PUTLOC PCDVER, PCVERSION
620000 II==.
160104 .= PCDVER
160104 000011 PCVERSION
000000 .=II
PUTLOC HIADDR, TOPADD
620000 II==.
160100 .= HIADDR
160100 100624 TOPADD
000000 .=II
260000 . = PCODE ;Beginning of instruction space
; This file is followed by the .ALP, .ALT, & .ALV files. Then COMP2.PAL[AL,HE]
PALX 246 01/15/80 17:26:18 Page 3
PNTY ALP[PNT,HE] Page 1
;Start of program
260000 000342 XPROG
260002 000400 400
;Initialization - AFFIX driver_grasp to driver_tip
260004 000056 XPUSH
260006 100400 L1
260010 000130 XAFFIX
;DRIVER_TIP
260012 000013 13
;DRIVER_GRASP
260014 000012 12
260016 002000 2000
;.DRIVER_TRANS
260020 000014 14
;Init (cont) - AFFIX moving_jaw to fixed_jaw
; Wait till VISE is ready
;End of Initialization
;BLOCK
260022 000042 XMVAR
;Events
260024 000004 4
260026 000001 1
260030 000000 0
;BLOCK
260032 000042 XMVAR
;Arrays
;SC
260034 001001 1001
260036 000001 1
260040 100100 100100
260042 100001 100001
260044 000000 0
;BLOCK
260046 000042 XMVAR
;Arrays
;VT
260050 001002 1002
260052 000001 1
260054 100100 100100
260056 100001 100001
260060 000000 0
;BLOCK
260062 000042 XMVAR
;Arrays
;TR
260064 001003 1003
260066 000001 1
260070 100100 100100
260072 100001 100001
PALX 246 01/15/80 17:26:18 Page 4
PNTY ALP[PNT,HE] Page 1.1
260074 000000 0
;BLOCK
260076 000042 XMVAR
;Arrays
;EVE
260100 001004 1004
260102 000001 1
260104 100100 100100
260106 100001 100001
260110 000000 0
;BLOCK
260112 000042 XMVAR
;Scalars
260114 000001 1
260116 000001 1
260120 000000 0
;FOR LOOP
260122 000056 XPUSH
260124 100462 L2
260126 000056 XPUSH
260130 100470 L3
260132 000056 XPUSH
260134 100462 L2
260136 000074 L4: XFORCHK
;I
260140 000405 405
260142 100164 L5
;Assignment
260144 000056 XPUSH
260146 100476 L6
;Array reference
260150 000052 XGTVAL
;I
260152 000405 405
260154 000054 XCHNGE
;SC
260156 000401 401
260160 000076 XFOREND
260162 100136 L4
L5: ;END FOR
;FOR LOOP
260164 000056 XPUSH
260166 100462 L2
260170 000056 XPUSH
260172 100470 L3
260174 000056 XPUSH
260176 100462 L2
260200 000074 L7: XFORCHK
;I
PALX 246 01/15/80 17:26:18 Page 5
PNTY ALP[PNT,HE] Page 1.2
260202 000405 405
260204 100226 L10
;Assignment
260206 000056 XPUSH
260210 100504 L11
;Array reference
260212 000052 XGTVAL
;I
260214 000405 405
260216 000054 XCHNGE
;VT
260220 000402 402
260222 000076 XFOREND
260224 100200 L7
L10: ;END FOR
;FOR LOOP
260226 000056 XPUSH
260230 100462 L2
260232 000056 XPUSH
260234 100470 L3
260236 000056 XPUSH
260240 100462 L2
260242 000074 L12: XFORCHK
;I
260244 000405 405
260246 100270 L13
;Assignment
260250 000056 XPUSH
260252 100526 L14
;Array reference
260254 000052 XGTVAL
;I
260256 000405 405
260260 000054 XCHNGE
;TR
260262 000403 403
260264 000076 XFOREND
260266 100242 L12
L13: ;END FOR
;Print
260270 000352 XPRINT
260272 100606 L15
;Event operation
260274 000104 XWAITE
;EV
260276 000400 400
;BLOCK
260300 000042 XMVAR
;Scalars
PALX 246 01/15/80 17:26:18 Page 6
PNTY ALP[PNT,HE] Page 1.3
260302 000001 1
260304 000144 144
260306 000000 0
;BLOCK
260310 000042 XMVAR
;Scalars
260312 000001 1
260314 000144 144
260316 000000 0
;BLOCK
260320 000042 XMVAR
;Scalars
260322 000001 1
260324 000062 62
260326 000000 0
;Block end cleanup
260330 000044 XKVAR
260332 000062 62
;End of BLOCK
;Block end cleanup
260334 000044 XKVAR
260336 000144 144
;End of BLOCK
;Block end cleanup
260340 000044 XKVAR
260342 000144 144
;End of BLOCK
;Block end cleanup
260344 000044 XKVAR
260346 000001 1
;End of BLOCK
;Block end cleanup
260350 000044 XKVAR
260352 000001 1
;End of BLOCK
;Block end cleanup
260354 000044 XKVAR
260356 000001 1
;End of BLOCK
;Block end cleanup
260360 000044 XKVAR
260362 000001 1
;End of BLOCK
;Block end cleanup
260364 000044 XKVAR
260366 000001 1
;End of BLOCK
;Block end cleanup
260370 000044 XKVAR
PALX 246 01/15/80 17:26:18 Page 7
PNTY ALP[PNT,HE] Page 1.4
260372 000001 1
;End of BLOCK
260374 000344 XENDP
;End of program
PALX 246 01/15/80 17:26:18 Page 8
PNTY ALV[PNT,HE] Page 1
260376 000003 3
260400 040200 000000 L1: .FLT2 1.0000000
260404 000000 000000 .FLT2 .0000000
260410 000000 000000 .FLT2 .0000000
260414 000000 000000 .FLT2 .0000000
260420 040200 000000 .FLT2 1.0000000
260424 000000 000000 .FLT2 .0000000
260430 000000 000000 .FLT2 .0000000
260434 000000 000000 .FLT2 .0000000
260440 040200 000000 .FLT2 1.0000000
260444 000000 000000 .FLT2 .0000000
260450 000000 000000 .FLT2 .0000000
260454 040360 000000 .FLT2 1.8750000
260460 000001 1
260462 040200 000000 L2: .FLT2 1.0000000
260466 000001 1
260470 041600 000000 L3: .FLT2 64.0000000
260474 000001 1
260476 000000 000000 L6: .FLT2 .0000000
260502 000002 2
260504 000000 000000 L11: .FLT2 .0000000
260510 000000 000000 .FLT2 .0000000
260514 000000 000000 .FLT2 .0000000
260520 040200 000000 .FLT2 1.0000000
260524 000003 3
260526 040200 000000 L14: .FLT2 1.0000000
260532 000000 000000 .FLT2 .0000000
260536 000000 000000 .FLT2 .0000000
260542 000000 000000 .FLT2 .0000000
260546 040200 000000 .FLT2 1.0000000
260552 000000 000000 .FLT2 .0000000
260556 000000 000000 .FLT2 .0000000
260562 000000 000000 .FLT2 .0000000
260566 040200 000000 .FLT2 1.0000000
260572 000000 000000 .FLT2 .0000000
260576 000000 000000 .FLT2 .0000000
260602 000000 000000 .FLT2 .0000000
L15: ASCIE ↑∀....READY....∀
260606 056
260607 056
260610 056
260611 056
260612 122
260613 105
260614 101
260615 104
260616 131
260617 056
260620 056
PALX 246 01/15/80 17:26:18 Page 9
PNTY ALV[PNT,HE] Page 1.1
260621 056
260622 056
260623 000
.ASCIZ ∃....READY....∃
260624 .EVEN
PALX 246 01/15/80 17:26:18 Page 10
COMP2 PAL[AL,HE] Page 1
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
C⊗;
PALX 246 01/15/80 17:26:18 Page 11
COMP2 PAL[AL,HE] Page 2
100624 TOPADD==.
.IF2
100624 FOO==.
.INFO <First location after pseudo code = >,\FOO
.PRINT /First location after pseudo code = /
.PRINT /100624
/
057154 .IFL 160000-FOO
.ERROR Pseudo code ran out of memory!
.ENDC
.ENDC
000001 .END
PALX 246 01/15/80 17:26:18 Page 12
COMP2 PAL[AL,HE] Page 2 ***Symbol Table***
AC0 000000RH FILL7 000114H LINVLD 000110H XAFFIX 000130H
AC1 000001RH FILL8 000116H LLOG 000166H XAND 000150H
AC2 000002RH FILL9 000120H LMOVE 000124H XBREAK 000374H
AC3 000003RH FOO 100624H LOPERA 000126H XCASE 000100H
AC4 000004RH HCOR 157776H LPOTPT 000154H XCENTE 000004H
AC5 000005RH HIADDR 000100H LRCENT 000212H XCHNGE 000054H
ADCVEC 000134H II 620000H LRFORC 000214H XCMDON 000320H
ARMCOD 001006H ILGINS 000010H LRPMOV 000204H XCMDSB 000310H
ARMDAT 002000H INIT 001004H LRTADR 000206H XCMDUR 000326H
ARMTRP 000200H INTCOD 060000H LRTDDR 000210H XCMENB 000306H
ARMVER 000102H INTDAT 050000H LSETBA 000136H XCMFOR 000322H
CLKCNT 172544H IPATCH 000000H LSETC 000142H XCMPOF 000020H
CLKS 172540H IREG 000272H LSETST 000156H XCMSEN 000324H
CLKSET 172542H KBIR 177562H LSNCSD 000170H XCMSKE 000314H
CLKTRP 000104H KBIS 177560H LSQRTF 000162H XCMTRI 000312H
COMTAB 000000H KBOR 177566H LTHPTR 000132H XCMUNC 000316H
CPOINT 000000H KBOS 177564H LUPDAT 000200H XCOMPL 000016H
DACVEC 000130H L1 100400 LWHERE 000122H XCONST 000272H
DDT 130000 L10 100226 LWRIST 000140H XDDT 000112H
DPATCH 001000H L11 100504 NEW 000000H XENDP 000344H
ERRTRP 000004H L12 100242 NOSTRT 000036 XEQV 000160H
FILL1 000032H L13 100270 NOTB10 000002H XFORCH 000074H
FILL10 000122H L14 100526 NOTB11 000040H XFOREN 000076H
FILL11 000124H L15 100606 OREG 000274H XGTVAL 000052H
FILL12 000126H L2 100462 OUTSW 000270H XIDIV 000210H
FILL13 000162H L3 100470 PC 000007R XINT 000206H
FILL14 000164H L4 100136 PCDVER 000104H XJUMP 000060H
FILL15 000274H L5 100164 PCODE 100000 XJUMPC 000062H
FILL16 000276H L6 100476 PCVERS 000011H XKVAR 000044H
FILL17 000300H L7 100200 PS 177776 XLOR 000152H
FILL18 000302H LACOS 000174H R0 000000R XMAX 000214H
FILL19 000304H LASIN 000172H R1 000001R XMIN 000216H
FILL2 000034H LATAN2 000176H R2 000002R XMOD 000212H
FILL20 000330H LCENTE 000120H R3 000003R XMOVE 000002H
FILL21 000332H LCMPOF 000152H R4 000004R XMVAR 000042H
FILL22 000334H LCOMPL 000150H R5 000005R XNOOP 000376H
FILL23 000336H LDVCPT 000134H RF 000005RH XNOT 000154H
FILL24 000340H LERRPT 000130H SAILID 000000H XNOTIC 000022H
FILL25 000362H LERRTR 000114H SG 000005RH XOPERA 000006H
FILL26 000364H LEULER 000202H SP 000006R XPAUSE 000106H
FILL27 000366H LEXP 000164H SPSWIT 000000H XPRINT 000352H
FILL28 000370H LFRCOF 000146H START 001000H XPROC 000066H
FILL29 000372H LFRCSI 000144H TOPADD 100624H XPROG 000342H
FILL3 000036H LGATHE 000160H VERSIO 000020H XPROMP 000346H
FILL4 000040H LGETAR 000112H VIT 171000H XPUSH 000056H
FILL5 000046H LGETVA 000106H VITTS 170777H XQUERY 000360H
FILL6 000050H LINTAR 000116H XABORT 000110H XRETUR 000070H
PALX 246 01/15/80 17:26:18 Page 13
COMP2 PAL[AL,HE] Page 2 ***Symbol Table***
XSABS 000204H XWAITE 000104H
XSADD 000170H XWHERE 000166H
XSCALR 000350H XWRIST 000026H
XSDIV 000200H XXOR 000156H
XSEQ 000144H YTRP 000314H
XSETBA 000024H
XSEXP 000202H
XSGE 000140H
XSGT 000142H
XSIGNA 000102H
XSLE 000134H
XSLT 000136H
XSMUL 000176H
XSNE 000146H
XSNEG 000174H
XSPROU 000072H
XSSBRT 000224H
XSSUB 000172H
XSTIFF 000030H
XSTOP 000010H
XSVMUL 000234H
XTAXIS 000230H
XTERMI 000064H
XTFRCS 000012H
XTINVR 000270H
XTMAGN 000226H
XTMAKE 000260H
XTOPAL 000400H
XTORIE 000254H
XTPOS 000252H
XTTMUL 000266H
XTVADD 000262H
XTVMUL 000250H
XTVSUB 000264H
XUNFIX 000132H
XUNITV 000244H
XVADD 000240H
XVALPR 000354H
XVARPR 000356H
XVCROS 000246H
XVDOT 000222H
XVMAGN 000220H
XVMAKE 000232H
XVMKFR 000014H
XVSAXW 000256H
XVSDIV 000236H
XVSUB 000242H
PALX 246 01/15/80 17:26:18 Page 14
COMP2 PAL[AL,HE] Page 2 ***Symbol Table***
1 Seconds Runtime